esMultiploDeTres :: Int -> Bool
esMultiploDeTres n = mod n 3 == 0

esMultiploDe :: Int -> Int -> Bool
esMultiploDe x y = x `mod` y == 0

cubo :: Int -> Int
cubo x = x * x * x

area :: Int -> Int -> Int
area b h = b * h

esBisiesto :: Int -> Bool
esBisiesto a = (esMultiploDe a 400) || (esMultiploDe a 4) && not( esMultiploDe a 100 )

incluidoEn :: Eq a => [a] -> a -> Bool
incluidoEn [] n = False
incluidoEn (x:xs) n = x == n || incluidoEn xs n

--cuadradoPerfecto 0 = 1
--cuadradoPerfecto n = cuadradoPerfecto(n-1)

--esCuadradoPerfecto :: Int -> Bool
--esCuadradoPerfecto x = 

celsiusToFahr :: Float -> Float
celsiusToFahr c = c * 9 / 5 + 32

fahrToCelsius :: Float -> Float
fahrToCelsius f = (f - 32) * 5 / 9


haceFrioF :: Float -> Bool
haceFrioF f = (fahrToCelsius f) < 8

main :: IO ()
main = print ( haceFrioF( celsiusToFahr 7.9 ) );